home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / moni / pubscreens.lha / PubScreens.c < prev    next >
C/C++ Source or Header  |  1992-12-18  |  916b  |  43 lines
  1. /*
  2.    Besorgt die Namen aller PublicScreens
  3.  
  4.    Version 0.2
  5.  
  6.    © 1992 Helmut Kindler
  7. */
  8.  
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <Intuition/IntuitionBase.h>
  13. #include <Intuition/screens.h>
  14. #include <clib/intuition_protos.h>
  15.  
  16.  
  17. char *ver;
  18.  
  19. main (int argc, char **argv)
  20. {
  21.     extern struct IntuitionBase *InutuitionBase;
  22.  
  23.     APTR NameBuf, Name;
  24.     struct screen *screen;
  25.     short dummy;
  26.  
  27.     ver = "$VER: PubScreenLister V0.2";
  28.     dummy = 0;
  29.  
  30.     puts("PublicScreenLister    © 1992 Helmut Kindler");
  31.     NameBuf = malloc(MAXPUBSCREENNAME);
  32.     Name = NULL;
  33.     Name = NextPubScreen (NULL, NameBuf);
  34.     do {
  35.         dummy += 1;
  36.         printf("%d. \"%s\"\n", dummy, Name);
  37.         screen = LockPubScreen (Name);
  38.         Name = NextPubScreen (screen, NameBuf);
  39.         UnlockPubScreen (NULL, screen);
  40.     } while ((Name != NULL) && !(strcmp (Name,"Workbench")==0));
  41.     free (NameBuf);
  42. }
  43.